home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / vegx20.zip / EGXVIEW.BAS < prev    next >
BASIC Source File  |  1990-11-15  |  1KB  |  50 lines
  1. ' EGXVIEW.bas
  2.  
  3. ' This program simply uses the FILES command to list the EGX files,
  4. ' inputs the filename and the flag option to load, and loads the EGX file.
  5.  
  6. ' You must load QB with the appropriate VEGX quicklibrary for your
  7. ' version of QB.
  8.  
  9. ' to do so type "QB /Lvegxlibraryname" at the DOS prompt.
  10. ' "vegxlibraryname" is VEGX40.QLB for QB 4.0 or BASIC 6.0;
  11. '                      VEGX45.QLB for QB 4.5, and
  12. '                      VEGX70f.QLB for BASIC 7.0
  13.  
  14.  
  15. DEFINT A-Z
  16. DECLARE SUB EGXLoad (fil$, palflag)
  17.  
  18. SCREEN 9
  19. CLS
  20.  
  21. top:
  22.  
  23. LOCATE 1, 1
  24. COLOR 12
  25. FILES "*.egx"
  26. PRINT STRING$(80, 205)
  27. COLOR 15
  28. INPUT "Enter filename, NO extension... ", fil$
  29.  
  30. IF fil$ = "" THEN
  31.    PALETTE: SCREEN 0: CLS
  32.    END
  33. END IF
  34.  
  35. COLOR 6
  36. PRINT "PALFLAG  OUT             IN"
  37. PRINT "  0      no blank        bank load"
  38. PRINT "  1      blank to 0      instant on"
  39.  
  40. COLOR 14
  41.  
  42. INPUT "Enter PaletteFlag number (0 or 1)... ", palflag
  43.  
  44. CALL EGXLoad(fil$, palflag)
  45.  
  46. DO: LOOP WHILE INKEY$ = ""
  47.  
  48. GOTO top
  49.  
  50.